object frmWebRequester: TfrmWebRequester
  Left = 0
  Top = 0
  Caption = 'WAR Web Requester'
  ClientHeight = 447
  ClientWidth = 685
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 11
    Top = 11
    Width = 76
    Height = 13
    Caption = 'Broker address:'
  end
  object lblRequesterId: TLabel
    Left = 19
    Top = 38
    Width = 68
    Height = 13
    Caption = 'Requester ID:'
  end
  object btnConnect: TButton
    Left = 220
    Top = 8
    Width = 81
    Height = 21
    Caption = 'Connect'
    TabOrder = 0
  end
  object edBrokerAddress: TEdit
    Left = 93
    Top = 8
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'localhost'
  end
  object btnDisconnect: TButton
    Left = 220
    Top = 35
    Width = 81
    Height = 21
    Caption = 'Disconnect'
    TabOrder = 2
  end
  object edRequesterId: TEdit
    Left = 93
    Top = 35
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'requester-1'
  end
  object btnStartRequester: TButton
    Left = 93
    Top = 62
    Width = 121
    Height = 25
    Caption = 'Start Requester'
    TabOrder = 4
    OnClick = btnStartRequesterClick
  end
  object RequesterGrid: TDBGrid
    Left = 8
    Top = 93
    Width = 673
    Height = 346
    DataSource = RequesterDataSource
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object btnRefreshGrid: TButton
    Left = 220
    Top = 62
    Width = 81
    Height = 25
    Caption = 'Refresh'
    TabOrder = 6
    OnClick = btnRefreshGridClick
  end
  object RequesterDataSource: TDataSource
    DataSet = cdsRequesterQueue2
    Left = 608
    Top = 32
  end
  object WebBrokerProviderConnection2: TDSProviderConnection
    ServerClassName = 'TWebBrokerMethods'
    Connected = True
    SQLConnection = SQLConnection1
    Left = 432
    Top = 24
  end
  object cdsRequesterQueue2: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'RequesterId'
        ParamType = ptInput
        Value = 'requester-1'
      end
      item
        DataType = ftInteger
        Name = 'Status'
        ParamType = ptInput
        Value = '2'
      end>
    ProviderName = 'RequesterQueueProvider'
    RemoteServer = WebBrokerProviderConnection2
    Left = 520
    Top = 24
    object cdsRequesterQueue2Name: TStringField
      FieldName = 'Name'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 50
    end
    object cdsRequesterQueue2Realm: TStringField
      FieldName = 'Realm'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 50
    end
    object cdsRequesterQueue2LastModified: TSQLTimeStampField
      FieldName = 'LastModified'
    end
    object cdsRequesterQueue2UrlValue: TStringField
      FieldName = 'UrlValue'
      Required = True
      Size = 2000
    end
    object cdsRequesterQueue2Priority: TIntegerField
      FieldName = 'Priority'
      Required = True
    end
    object cdsRequesterQueue2Status: TIntegerField
      FieldName = 'Status'
      Required = True
    end
    object cdsRequesterQueue2RequesterId: TStringField
      FieldName = 'RequesterId'
      Required = True
    end
    object cdsRequesterQueue2RequestTime: TSQLTimeStampField
      FieldName = 'RequestTime'
    end
    object cdsRequesterQueue2RequestResult: TMemoField
      FieldName = 'RequestResult'
      BlobType = ftMemo
      Size = 1
    end
    object cdsRequesterQueue2Timestamp: TSQLTimeStampField
      FieldName = 'Timestamp'
    end
    object cdsRequesterQueue2RequestTry: TIntegerField
      FieldName = 'RequestTry'
      Required = True
    end
    object cdsRequesterQueue2RequestHttpCode: TIntegerField
      FieldName = 'RequestHttpCode'
    end
    object cdsRequesterQueue2Type: TIntegerField
      FieldName = 'Type'
      Required = True
    end
  end
  object SQLConnection1: TSQLConnection
    ConnectionName = 'WebBrokerConnection'
    DriverName = 'DATASNAP'
    LoginPrompt = False
    Params.Strings = (
      'drivername=DATASNAP'
      'port=8080'
      'communicationprotocol=http'
      'hostname=localhost')
    Connected = True
    Left = 344
    Top = 24
  end
end
